00100	C CONVERTS LUTE TABLATURE TO STANDARD INPUT FOR MS.
00200	
00300		DIMENSION I(80),IX(80)
00400		TYPE 1
00500	1	FORMAT(' TYPE FILE NAME -- '$)
00600	2	FORMAT(A5)
00700		ACCEPT 2,NAME
00800		TYPE 3
00900		ACCEPT 2,NM2
01000	3	FORMAT(' TYPE OUTPUT NAME -- '$)
01050	20	FORMAT(80A1)
01075	22	FORMAT(' 100 ',72A1)
01100		IF(NM2.EQ.IBLA)NM2='TABL'
01200		CALL IFILE(1,NAME)
01300		CALL OFILE(21,NM2)
01400	
01500		READ(1,20)L,I
01600	C READS SOS LINE NUMBERS